(compile-internal): Initialize the process-mark.

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index bf860e6c38f239dedc0babe0e4b616121b83ce0c..22d60916ac72bc2b483e7e63745704f9b29338df 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -322,6 +322,7 @@ Returns the compilation buffer created."
                                               command)))
        (set-process-sentinel proc 'compilation-sentinel)
        (set-process-filter proc 'compilation-filter)
+       (set-marker (process-mark proc) (point) outbuf)
        (setq compilation-in-progress (cons proc compilation-in-progress))))
     ;; Make it so the next C-x ` will use this buffer.
     (setq compilation-last-buffer outbuf)))